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/ / P ° S 1. 1 ST J3B JOB— C A P P— ACCOUNT I N — I NFCRMAT ION 

//*ft ^ 

U ** THIS STREAM pF JCL PRODUCES 3 CRCSS REFERENCE LISTINGS OF ALL * 
'/** the modules on thc page data base. ' LL * 

//** LISTING 1: MODULES IN PAGE LOCATION ORDER * 

//** LISTING 2: MODULES BY DECK LOCATION * 

'/** LISTING 3: MODULES BY ENTRY POINT (MODES) WITHIN DECKS ft 

/ / ** *■ ^ 

//SORT1 EXEC PGM=SORT,PARM= *CORF=50nOO,MSG=AP 1 »RPGlON=114K 
//SORTLIB DO n SP=SHR ,PSN*SYS 1 .S ORT L I B 
//SOP T IN D D 0 SN = G I M 2. P P SDF F » D T SP= SHR 


/ / SORT 0(ji 

// 

//SORTWKOl 
/ / S OP T w K 02 
//SDRTWK 03 
//SYS CUT 
//SYSIN 


or 

on 
DP 
DD 

nr 

no 

SORT 

END 


ncfc= ( BLKS T ZE= 3520, LR ECL= 80* R EC FM = FB ) ,0 I SP = ( NE W, PASS) , 

OSN=CC PPS , SPACF= (TRK , (9 ,1 ) ) ,UNIT=SYS DA 

S P A C E= { 0 YL * 2 * * C 0 N T I G ) , UN I T= S Y SD A 

SPACE* (CVL, 2, , CONFIG), UNIT = SYSDA 

SPACF = (C YL,2 , *CONTIG) ,UM T=SYSDA 

DUMMY 

ft 

F tf-ld S = ( 10* 5 ,CH ,A) , SI ZE=E2 000 


/* 

//PPSL 1ST EXEC PG** = PP SLI ST 

//S T EP L! B DD DIS P=S HP* DSN= GIM2 .LOAD 

//SYSIN 0^ DI SP=( 01 D*DEL C T C ') , DSN=Cf. PPS 

//SYS PR I NT DC S Y c 0 U T = A , DC B = ( R EC C M = V3 A * L PE C L = 1 2 5 * B LKSI ZF = 1 004) 
//AAA n D DC B- ( BLKS IZE-3520 , LR ECL = 80» RE CFM= F 3 ) » DISP=( .PA^S ), 

t* n SN=R £PP SHE X » SP AC E = ( TR K » { 9 *1) ) ,UMT = SY SCA " 

/ ft 

//S0PT2 E > ~ r PG M = S OP.T , PA R M = ' C ORE =50000 * MS G= AP * 

//SDR T IN OP P I SP = ( 01 D ,PA SS) .OSN = SS PPSHEX 

//SCFTOUT DC SYS CU T = A * DC 6= (31 KS I Z €= 8 0 * L P ECL = 80 * R EC F H=F ) 

/ / S P t? 7 L I B pn DI SP = SHF ,DS N=SYS 1 .S CRT L I B ‘ 

/ / SDF T WK 0 1 no SPACE=(C YL , 2, ,CONTIG) *UNI T=SYSDA 
/ / SOFT WKO 2 nn SPACE* (CYL ,2, , CUNTIC.),UN IT*SYSDA 
/ / SOP T rtK 0 3 DD SPACE = (CYL *2 , jCGNTIG) ,UMT=SYSDA 
//SYS CUT DD DUMMY 

//SYSIN ' DD ft " '""" - 

SORT F I F LD S = { I 6 , 8 ,CH , A ) * S I Z E=E2000 
FNC 

/* “ ; - - -• 


//S0FT3 E >EC PGM = SOP T , P A R K=* C MR E =50000 * V S G= A P-’ 

//S OPT IN op DISP= (01. 0, DELETE ) , D SN= G SPPSHE X 
/ / SC r tqijT OD SYSCU T * A *DCB= ( BLKS I Z E=80 , LR n CL= 80* RECFM= F ) 
//SMhTLIR DD D I SP = S,HR ,D SN= SYS 1. SDRTLI B 
/ /SOPTir-KOI or SPACE* ( CYL, 2, ,CONTIG }, UNI T= SYSDA 
//SORTWK02 DD SPACE=(CYL»2 * , C G NT IG)*UNIT = SYSDA 
//S0RTWK03 D n SPACE=( C YL , 2* *CONTIG) *UM T=SYSOA 
//SYSCUT CD DUMMY 

//sysin ■ no ft ' ; ; j:.; 

SORT PIELDS=( 1 ,8*CH*A) »SIZE = E2000 
END 

/ft . . . .. 
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//VTCCLIST JOB JOB-CAR O-ACCOUNT ING-I NFORMATI CM 
//** 

//VTOC EX-C PG<>"=VT(XLI ST ,PARM = * PAP , POS* 

//***❖***#* * t- ***** * * Tjt * * aje* « * # # *** £ * * « * £ # sjc* $ Jjt * $ aje * # 

/ ^ 
//*"* THIS program pr i m t a TA8L p of contents and track * 

//** ALLOCATION MAP FOR THE DISK PACK tJFFINFD ON DD * 

//** CARD • VOL » * 

/ / X-'it ^ 

/ /***** ***** **** ******** ****** **** ************************* 
//STtPLTB DD DI SP-=SHR » DSN=G I M2 « L n AO 
//SYS PRINT CC SYSOUT= A 

//VCL DO V0L=SFR=123456 f UNIT=3330»DISP=SHR 

/* 

/* 


UTIL 
UT IL 


UTIL 
UTIL 
UT IL 

BATCH MON 




I 
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